home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 3 / BBS in a box - Trilogy III.iso / Files / Prog / D-G / FORTRAN Goodies / FORTRAN Speaks / SpeechIntf.f < prev   
Encoding:
Text File  |  1990-07-20  |  1.5 KB  |  56 lines  |  [TEXT/MPS ]
  1. C
  2. C    MacInTalk include file for Language Systems FORTRAN
  3. C
  4.     INTEGER*2 fullUnitT        !error code for driver unit table full
  5.     PARAMETER (fullUnitT = -4000)
  6.  
  7. C    Voice sex characteristics - Only Male is valid
  8.     INTEGER*2 Male, Female
  9. C    Voice tonal characteristics
  10.     INTEGER*2 Natural, Robotic, NoChange
  11. C    Languages - Only English is valid!
  12.     INTEGER*2 English, French, Spanish, German, Italian
  13.     PARAMETER (Male=0, Female=1)
  14.     PARAMETER (Natural=0, Robotic=1, NoChange=2)
  15.     PARAMETER (English=0, French=1, Spanish=2, German=3, Italian=4)
  16.  
  17. C    Driver parm block, used internally
  18.     STRUCTURE /SpeechRecord/
  19.         INTEGER*1 array(0:99)
  20.     END STRUCTURE
  21.  
  22. C    pointer to driver parm block    
  23.     STRUCTURE /SpeechPointer/
  24.         POINTER /SpeechRecord/ P
  25.     END STRUCTURE
  26.  
  27. C    handle to driver parm block    
  28.     STRUCTURE /SpeechHandle/
  29.         POINTER /SpeechPointer/ H
  30.     END STRUCTURE
  31.  
  32. C    Voice characteristics record    
  33.     STRUCTURE /VoiceRecord/
  34.         INTEGER*2 theSex
  35.         INTEGER*2 theLanguage
  36.         INTEGER*2 theRate
  37.         INTEGER*2 thePitch
  38.         INTEGER*2 theMode
  39.         STRING*255 theName
  40.         INTEGER*4 refCon
  41.     END STRUCTURE
  42.     
  43. C    pointer to Voice characteristics record    
  44.     STRUCTURE /VoicePtr/
  45.         POINTER /VoiceRecord/ P
  46.     END STRUCTURE
  47.  
  48. C    Declare as PExternal the driver routines
  49.     INTEGER*2 SpeechOn,Reader,MacinTalk
  50.     PEXTERNAL SpeechOn,SpeechOff,SpeechRate,SpeechPitch,SpeechSex,Reader,MacinTalk
  51.  
  52. C    Set up string parameters for driver
  53.     STRING*10 noExcpsFiles    !Signals Reader to use only basic rules
  54.     STRING*10 noReader        !Signals SpeechOn to NOT bring in Reader
  55.     DATA noExcpsFiles,noReader/'','noReader'/
  56.